use "Point Estimates and CI.dta", clear

/*Participation- Attendance- 17-15.5*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=17 & var_num>=15.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=17 & var_num>=15.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==17 | var_num==16, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==16.75 | var_num==15.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(17 "Attendance*" 16 "Citizens Participating*", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Point Estimate- Means" 4 "Point Estimate- Ranks") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Participation- Attendance- 17-15.5-MEANS ONLY-USED IN MAIN TEXT*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num==17 | var_num==16, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==17 | var_num==16, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==17 | var_num==16, mcolor(gray) msize(medlarge)), yscale(range(15.75 17.25)) ytitle("") ylabel(17 "Attendance*" 16 "Citizens Speaking*", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Mean Difference-Treatment vs. Control") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Participation-Groups, Proportion, and Duration- 15-11.5*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=15 & var_num>=11.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=15 & var_num>=11.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==15 | var_num==14 | var_num==13 | var_num==12, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==14.75 | var_num==13.75 | var_num==12.75 | var_num==11.75 , mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(15 "Community Groups" 14 "Proportion Female" 13 "Proportion Participating" 12 "Meeting Duration**", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small)) graphregion(fcolor(none))

/*Participation-Groups, Proportion, and Duration- No Female*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=15 & var_num>=11.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=15 & var_num>=11.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==15 | var_num==14 | var_num==13, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==14.75 | var_num==13.75 | var_num==12.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(15 "Community Groups" 14 "Proportion Participating" 13 "Meeting Duration**", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Participation-Groups, Proportion, and Duration- No Female-MEANS ONLY-USED IN MAIN TEXT*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num==15 | var_num==14 | var_num==13, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==15 | var_num==14 | var_num==13, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==15 | var_num==14 | var_num==13, mcolor(gray) msize(medlarge)), yscale(range(12.75 15.25)) ytitle("") ylabel(15 "Community Groups" 14 "Proportion Participating" 13 "Meeting Duration**", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Mean Difference-Treatment vs. Control") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Interest Group Capture- 11- 8.5*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=11 & var_num>=8.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=11 & var_num>=8.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==11 | var_num==10 | var_num==9, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==10.75 | var_num==9.75 | var_num==8.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(11 "Number Supporting Waste Management*" 10 "Proportion Supporting Waste Management" 9 "Rank of Waste Management*", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small)) graphregion(fcolor(none))

/*Interest Group Capture- No Proportion*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=11 & var_num>=8.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=11 & var_num>=8.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==11 | var_num==10, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==10.75 | var_num==9.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(11 "# Supporting Waste Management*" 10 "Rank of Waste Management*", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Interest Group Capture- No Proportion-MEANS ONLY-USED IN MAIN TEXT*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num==11 | var_num==10, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==11 | var_num==10, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==11 | var_num==10, mcolor(gray) msize(medlarge)), yscale(range(9.75 11.25)) ytitle("") ylabel(11 "# Supporting Waste Management*" 10 "Rank of Waste Management*", labels labsize(vsmall) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Mean Difference-Treatment vs. Control") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Match Between Requested and Allocated Projects-8-3.5*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=8 & var_num>=3.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=8 & var_num>=3.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==8 | var_num==7 | var_num==6 | var_num==5 | var_num==4, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==7.75 | var_num==6.75 | var_num==5.75 | var_num==4.75 | var_num==3.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(8 "Overall Match" 7 "Priority #1 Match" 6 "Priority #1 Funded" 5 "Priority #2 Match***" 4 "Priority #2 Funded", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Match-Omitting Weird HL PE*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num==8 | var_num<=7 & var_num>=3.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==8 | var_num<=7 & var_num>=3.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==8 | var_num==7 | var_num==6 | var_num==5 | var_num==4, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==7.75 | var_num==6.75 | var_num==5.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(8 "Overall Match" 7 "Priority #1 Match" 6 "Priority #1 Funded" 5 "Priority #2 Match***" 4 "Priority #2 Funded", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Match-MEANS ONLY-USED IN MAIN TEXT*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num==8 | var_num==7 | var_num==6 | var_num==5 | var_num==4, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==8 | var_num==7 | var_num==6 | var_num==5 | var_num==4, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==8 | var_num==7 | var_num==6 | var_num==5 | var_num==4, mcolor(gray) msize(medlarge)), ytitle("") ylabel(8 "Overall Match" 7 "Priority #1 Match" 6 "Priority #1 Funded" 5 "Priority #2 Match***" 4 "Priority #2 Funded", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Mean Difference-Treatment vs. Control") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Type of Discrepancy- 3 and Smaller*/
twoway (rcap means_lower_90 means_upper_90 var_num if var_num<=3 & var_num>=0.5, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num<=3 & var_num>=0.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==3 | var_num==2 | var_num==1, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==2.75 | var_num==1.75 | var_num==0.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(3 "Out-of-Order**" 2 "Funding Unranked Projects***" 1 "Only One Project Funded***", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(3 "Point Estimate- Means" 4 "Point Estimate- Ranks" 1 "90% Confidence Interval"  2 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Type of Discrepancy-MEANS ONLY-USED IN MAIN TEXT*/

twoway (rcap means_lower_90 means_upper_90 var_num if var_num==3 | var_num==2, lcolor(gray) lwidth(thick) lpattern(solid) horizontal) (rcap means_lower_95 means_upper_95 var_num if var_num==3 | var_num==2, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==3 | var_num==2, mcolor(gray) msize(medlarge)),yscale(range(1.75 3.25)) ytitle("") ylabel(3 "Out-of-Order**" 2 "Single Project Funded***", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(1 "90% Confidence Interval"  2 "95 % Confidence Interval" 3 "Mean Difference-Treatment vs. Control") size(small) region(lcolor(none))) graphregion(fcolor(none))

/*Discrepancy-95 % Only*/
twoway (rcap means_lower_95 means_upper_95 var_num if var_num<=3 & var_num>=0.5, lcolor(gray) lpattern(dash) horizontal) (scatter var_num point_estimate_means if var_num==3 | var_num==2 | var_num==1, mcolor(gray) msize(medlarge)) (scatter var_num point_estimate_means if var_num==2.75 | var_num==1.75 | var_num==0.75, mcolor(gray) msize(medlarge) msymbol(circle_hollow)), ytitle("") ylabel(3 "Out-of-Order**" 2 "Funding Unranked Projects***" 1 "Only One Project Funded***", labels labsize(small) angle(horizontal) nogrid) xline(0, lpattern(dash) lcolor(black)) legend(order(2 "Point Estimate- Means" 3 "Point Estimate- Ranks" 1 "95 % Confidence Interval") size(small) region(lcolor(none))) graphregion(fcolor(none))

